home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / EXMENU01.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-04  |  1KB  |  50 lines
  1. {$F+}  { -- far code model is required for any functions that }
  2.        { -- are to be used as Events }
  3.  
  4. Uses
  5.     TEGLFont,
  6.     TGraph,
  7.     TEGLIntr,
  8.     TEGLUnit,
  9.     TEGLMain,
  10.     TEGLMenu,
  11.     SenseMs,
  12.     DebugUnt;
  13.  
  14.  
  15. VAR
  16.   om1, om2 : OptionMPtr;
  17.  
  18.  
  19. FUNCTION GetMsSense(FS:imagestkptr; Ms: msclickptr) : WORD;
  20.   BEGIN
  21.     SetMouseSense(fs^.x,fs^.y);
  22.     GetMsSense := 1;
  23.   END;
  24.  
  25.  
  26.  
  27. BEGIN
  28.    EasyTEGL;
  29.  
  30.    { -- insert the example code here }
  31.    { -- press Ctrl-Break to exit program }
  32.  
  33.    om1 := CreateOptionMenu(@Font14);
  34.    DefineOptions(om1,'~O~pen ',true,NilUnitProc);
  35.    DefineOptions(om1,'-',false,NilUnitProc);
  36.    DefineOptions(om1,'~Q~uit ',true,Quit);
  37.  
  38.    om2 := CreateOptionMenu(@Font14);
  39.    DefineOptions(om2,'~M~emory',true,ShowCoordinates);
  40.    DefineOptions(om2,'~M~ouse Sensitivity',true,GetMsSense);
  41.  
  42.    CreateBarMenu(0,0,getmaxx);
  43.    OutBarOption(' ~F~ile ',om1);
  44.    OutBarOption(' ~U~tility ',om2);
  45.  
  46.    { -- control is then passed to the supervisor }
  47.  
  48.    TEGLSupervisor;
  49. END.
  50.